﻿Public Class CruceFletesBE
    'Pestaña general
    Dim intKvje As Integer
    Dim intKbli As Integer
    Dim sNume As String
    Dim strPto As String
    Dim strServ As String
    Dim strCsne As String
    Dim intKTarifa As String
    Dim sTarifa As String
    Dim intCant As Integer
    Dim dFleteTarifa As Double
    Dim dFleteActual As Double
    Dim dblDiferencia As Double
    Dim sUnidadMedida As String

    Public Sub New()

    End Sub

    Public Property Cant() As Integer
        Get
            Return intCant
        End Get
        Set(ByVal value As Integer)
            intCant = value
        End Set
    End Property

    Public Property KTarifa() As Integer
        Get
            Return intKTarifa
        End Get
        Set(ByVal value As Integer)
            intKTarifa = value
        End Set
    End Property

    Public Property Csne() As String
        Get
            Return strCsne
        End Get
        Set(ByVal value As String)
            strCsne = value
        End Set
    End Property

    Public Property Serv() As String
        Get
            Return strServ
        End Get
        Set(ByVal value As String)
            strServ = value
        End Set
    End Property

    Public Property Kbli() As Integer
        Get
            Return intKbli
        End Get
        Set(ByVal value As Integer)
            intKbli = value
        End Set
    End Property

    Public Property Kvje() As Integer
        Get
            Return intKvje
        End Get
        Set(ByVal value As Integer)
            intKvje = value
        End Set
    End Property

    Public Property Nume() As String
        Get
            Return sNume
        End Get
        Set(ByVal value As String)
            sNume = value
        End Set
    End Property

    Public Property Tarifa() As String
        Get
            Return sTarifa
        End Get
        Set(ByVal value As String)
            sTarifa = value
        End Set
    End Property

    Public Property Pto() As String
        Get
            Return strPto
        End Get
        Set(ByVal value As String)
            strPto = value
        End Set
    End Property

    Public Property FleteTarifa() As Double
        Get
            Return dFleteTarifa
        End Get
        Set(ByVal value As Double)
            dFleteTarifa = value
        End Set
    End Property

    Public Property FleteActual() As Double
        Get
            Return dFleteActual
        End Get
        Set(ByVal value As Double)
            dFleteActual = value
        End Set
    End Property

    Public Property Diferencia() As Double
        Get
            Return dblDiferencia
        End Get
        Set(ByVal value As Double)
            dblDiferencia = value
        End Set
    End Property

    Public Property UnidadMedida() As String
        Get
            Return sUnidadMedida
        End Get
        Set(ByVal value As String)
            sUnidadMedida = value
        End Set
    End Property
End Class
